unit frm_produto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, AdvGlowButton, StdCtrls, AdvEdit, DBAdvEd;

type
  TFR_Produto = class(TFrame)
    edtCodProduto: TDBAdvEdit;
    btnPesqProduto: TAdvGlowButton;
    edtProduto: TAdvEdit;
    procedure btnPesqProdutoClick(Sender: TObject);
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;

implementation

uses u_pesquisaproduto;

{$R *.dfm}

procedure TFR_Produto.btnPesqProdutoClick(Sender: TObject);
begin
  with TFRM_PesquisaProduto.Create(nil) do
  try
    if ShowModal = mrOK then
    begin
      edtCodProduto.IntValue := cdsPesquisarCOD_PRODUTO.AsInteger;
      edtProduto.Text        := cdsPesquisarDESCRICAO.AsString;
    end;
  finally
    FreeAndNil(FRM_PesquisaProduto);
  end;
end;

end.
